home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / 1463.ZIP / DRAW-2D.ARC / STATUS2.PAS < prev    next >
Pascal/Delphi Source File  |  1986-11-21  |  499b  |  14 lines
  1. PROCEDURE STATUS2;
  2.    BEGIN
  3.      M1 := 2;                 (* HIDE MOUSE *)
  4.      MOUSE(M1,M2,M3,M4);
  5.      MOVCUR(23,1);
  6.      WRITE(BLKLINE);
  7.      MOVCUR(23,1);
  8.      WRITE(' SCALE [1:',ROUND(SCALX):4,']  MODE: ',MODE[MNUM]);
  9.      WRITE('  OBJECT: ',OBJ[OTYP],' ':8-LENGTH(OBJ[OTYP]),' FREE: ',MAXSIZE-OBJPTR+1:3);
  10.      WRITE('    LCIR: ',NPOLY:3,'   CLIN ');
  11.      IF CLIN THEN WRITE('ON') ELSE WRITE('OFF');
  12.      M1 := 1;                 (* SHOW MOUSE *)
  13.      MOUSE(M1,M2,M3,M4);
  14.    END;